set Abuse$Dir <Obey$Dir>
set AbuseLoad$Path <Abuse$Dir>.AbuseData.
set AbuseSave$Path <Abuse$Dir>.AbuseData.

RMEnsure Toolbox	0.00 RMLoad System:Modules.Toolbox.Toolbox
RMEnsure Toolbox	0.00 Error Versions of Abuse greater than 0.04 need the Toolbox module

RMEnsure IconBar	0.00 RMLoad System:Modules.Toolbox.IconBar
RMEnsure IconBar	0.00 Error Versions of Abuse greater than 0.04 need the IconBar module

RMEnsure ProgInfo	0.00 RMLoad System:Modules.Toolbox.ProgInfo
RMEnsure ProgInfo	0.00 Error Versions of Abuse greater than 0.04 need the ProgInfo module

RMEnsure Window		0.00 RMLoad System:Modules.Toolbox.Window
RMEnsure Window 	0.00 Error Versions of Abuse greater than 0.04 need the Window module

RMEnsure Menu		0.00 RMLoad System:Modules.Toolbox.Menu
RMEnsure Menu	 	0.00 Error Versions of Abuse greater than 0.04 need the Menu module

if "<File$Type_B23>" <> "X-File" then Error "!X-files has not been seen by the filer. Please locate before running !Abuse."
filer_run <Abuse$Dir>.AbuseData

wimpslot -min 3000k -max 3000k
run <Abuse$Dir>.!RunImage
